home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ETO Development Tools 4
/
ETO Development Tools 4.iso
/
Tools - Objects
/
MacApp
/
MacApp 2.0.1
/
MacApp CD Release
/
MacApp® 2.0.1 Tutorial
/
Chapter 10
/
MIconEdit.p
< prev
next >
Wrap
Text File
|
1990-10-25
|
641b
|
28 lines
{MIconEdit.p}
{copyright © 1989 by Apple Computer, Inc. All rights reserved.}
PROGRAM IconEdit;
USES
{ • MacApp }
UMacApp,
{ • Your units }
UIconEdit;
VAR
gIconApplication: TIconApplication;
BEGIN
InitToolBox; { Essential toolbox and utilities initialization }
InitUMacApp(8); { Initialize MacApp with 8 calls to MoreMasters. }
New(gIconApplication); { Create a new TIconEditApplication object. }
FailNIL(gIconApplication); { Make sure New didn't fail. }
gIconApplication.IIconApplication(kFileType);
gIconApplication.Run; { Run the application. When it's done, exit. }
END.